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LOC OBJ LENS SOURCE STATEMENT 
1 €TITLEC’MIP-ISIS MIPSEND’) 
2 ,iIStStMipsend: 
3 ;7do-r 
4 3 
5 + THIS ROUTINE IS CALLED 28Y USERS IN ORDER TO SENT A MESSSAGE. 
6 + 
t 7 INPUT: TOP OF STACK = THE DESTINATION SOCKET 
a, B/C = THE PCINTER TC THE MESSAGE .TO Be SENT 
9 7 D/E = THE LENGTH OF THE MESSAGE TO BE SENT 
10 - 
11 + OUTPUT: THE RESULTS OF THE ATTEMPT TO SEND ARE IN THE A REG 
12 7 UPON RETURN. THIS ROUTINE WILL ALWAYS RETURN SINCE 
13 7 IT HAS A TIMEOUT BUILTIN TO IT. 
14 7 
15 + A RES VALUES UPCN RETURN ARE: 
16; 
17 7 80H -~ DELIVERED TC DESTINATION 
13; 82H - DELIVERED TC DESTINATION 
19 7 81H —- UNKNOWN PORT ON DESTINATION 
20 + 85H - THE DESTINATION HAD INSUFFICIENT RESOURCES 
21 7 TO RECEIVE THE MESSAGE 
Co + 89H - THE CESTINATION. DEVICE DID NOT RESPOND 
23.3 
24 
25 
26 sdeclare RQEntry1 literally ” 
2¢ 
26 + Requestsid byte, 
29 ; Srefrequestfid byte, 
30 ; DestS$devS$id byte, 
21 ; DestFportsid byte, 
S227 Srcefdevsid byte, 
33 7 BufSbaseSadr (2) word, 
34; Leneth word, 
ee, TOStid byte, 
36 > OunerSdev bytes 
ows 
38 -declare OutSRQD word externéel, 
39 -declare Wreply byte public, 
40 
44 NAME MIPSEND 
42 . FUBLIC MIPSEN-WREPLY 
43 EXTRN TRQGPT 
44 EXTRN INTASK/RQOGPTR-RLGPTR-OUTROD-INITT,-BUMPT 
45 CSEG 
46 
47 SINCLUDECSFIIMIP.EQU) 
= 48 ; 
= 49 ; DEFINE RQD RESULTS 
= 50, 
0001 = 51 GERROR EQU 1H 
0004 = 52 GBUSY EQU 4H 
00C8 = 53 FIRSTG EeGu 8H 
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LOC OBJ LINE SCURCE STATEMENT 
0020 = 55 GFULL EQU 20H 
0040 = 56 DISA8T ECU 40H 
0080 = 57 FULLF EU 80H : 
= -58 
00C1 = 59 TERROR EGU 4H 
O0C4 = €0 TBUSY EQU 4H 
COC = 61 FIRSTT =GU &H 
0010 = 62 TOISAB EQU 10H 
0020 = 63 TEMPTY EQU 20H 
0040 = €64 CISABG EQU 40H 
QO0&0 = €5 EMPTYF EU &0H 
= 66 ; 
= 67 - DEFINE MIP CMDS AND RESPONSES 
= €8 ; 
0070 = 69 CSEND EQU 70H 
0080 = 70 SENTCK EQU 80H 
0081 = 71 UNKNP EQU @4H 
0083 = 72 ACTIVP EGU 83H 
O0€5 = 73 INSUFM EQU | BSH” 
0087 = 74 INACTP EQU 87H 
0089 = 75 DEADP EQU 89H 
= 76 + 7 | 
= 77 +» DEFINE MIP-ISIS PARAMETERS ~ 
= 78 7 
00C0 = 79 MYIOS EQU 0 
00C3 = €0 THIOEV EQU 3 
&4 
BD FL KI KR IK RAR KIRK RR RK KOR IIR OK IO OO TOR IO TOR OR I IIR IO dO OK OK 
&3 
&4 ;MIPisen: 
85 - precedure(Osocket-Msgptr-Length) byte public, 
&6 
&7 7 declare Dsocket word, 
88 + Msgotr word, 
&9 + Length word, 
90 7+/* 
91 7 declare local variables 
92 7x/ 
$3 7 declare Meg based Msgptr structure (MipSmsgSformat), 
G4 + R@Entry based Cutgraqd structure(CRaentrySformat), 
95 > Givesstate byte, 
$6 7 I byte, 
$7 MIPSEN: 
OOCO EB $8 XCHG , PUT LENGTH IN H/L 
0001 220000 D G9 SHLD LENGTH 
0004 £1 100 POP H 7 RET ADR 
O6C5 D1 101 FOP ie 7 DSOCKET IN D/E 
O0G6 E5 102 PUSH H 
103 7 /x 
104 + First get the ROD fer the Reauest queue, 
105 7 x&/ | 
. 106 
QOC7 C5 107 425% PUSH a ‘7 SAVE MSEGPTR 
nocé 05 103 PUSH C ys SAVE OSOCKET 
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LOC OBJ LINE SOURCE STATEMENT 
110 ; now Loop until we cén put the item into the RQ, find out the 
111 7 device is dead, or timeout, 
Tepe ee 
113 7 do forever;s 
114 @9: ; 
115 7 , aif TRQGPT and GERROR then return DEADP, 
00C9 cDo0000 E 116 CALE TRQGPT . 
-Q00cc C1 117 FOP B 7 get back dsocket 
OOcod O01 118 POP D y get back msgptr 
OOCE 1F 119 RAR 
QOOOQF 3£89 120 MVI A, OEADP 
0011 08 121 RC 
122 ;- do; 
123 7 /x 
124 7 fill in the entry first 
125 7 */ 
126 > RG@Entry.Request$id = CéEND, 
0012 3670 127 MVI M,CSEND y PTR TO RQE IS IN H/L UPON RETURN 
123 7 RGéEntry.eDest$devsid = Cdevice,s : 
0014 23 129 INX H y PAST SRC REQ ID SINCE NOT USED 
0015 23 130 INX H 
0016 70 121 MOV Mr , PUT DEST DEVICE IN 
0017 23 132 INX H 
133: 7 RGEntry.DestSport$id = Dport,s 
0018 71 134 MOV M,C 
0019 23 132° 3 INX H , PUT DEST PORT IN 
136 7 RG@Entry.Srce$devsid = ThiSdev,s 
001A 3603 137 MVI M, THIOEV y SRC IS THIS DEVICE 
001C 23 138 INX H 
139 ; RQEntry.8ufSbaseadr(0) = Msgptr;, 
140 ; /x 
141 7 base is alwzys 0 
142 ; x/ 
0010 73 143 MOV M7 — 
ODO1E 23 144 INX H : 
OO1F 72 145 MOV MD 
0020 23 146 INX H 
os 147 >; RGEntry.BufSbaseadr(1) = Q, 
Q021 AF 148 XRA A 
00¢2 77 149 MOV MA 
0023 23 150 INX H 
0024 77 137 MOV M;A 
00¢5 23 152 INX H 
. 153 7 R@Entry.Length = Length 
0026 =B 154 XCHG 
0027 2A000C 3) 1:55 LHLO LENGTH 
OOCA EB 156 XCHG 
0028 73 Toe MOV Mee 
Q002C 23 158 INX H 
002D 72 159 MOV M,D 
OOZE 23 160 INX H 
. —  .1é1 RQEntry.zlOSid = MYSids, 
O02F 3600 162 MVI M/MYIDS 


0031 23 165 INX H 
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LOC OBJ LINE 
0032 3603 165 
166 
167 
168 
169 
0024 cpo000 = 170 
174 
172 
173 
174 
175 
176 
177 
0037 21020C bd 178 
003A 36FF 179 
180 
003c cooo0c == 181 
182 
183 
184 
185 
OO3F cpo00c £= 186 
0042 cooooc = 187 
0045 3589 188 
0047 C8 189 
0048 210200 o 190 
0048 7E 191 
O04C FEFF 192 
OO4E CA3FOC Cc 193 
194 
195 
196 
0051 C9 197 
198 
199 
200 
201 
202 
203 
204 
205 
| 206 
o0co 0000 207 
00C2 00 208 
209 
210 
PUBLIC SYMBOLS 
MIPSEN C QOQOCG WREPLY 
EXTERNAL SYMBOLS 
S2UMPT E 0000 INITT 
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> SEE IF ANYTHING THERE 


ASSEMBLER, V3.0 MIPSEN 
SOURCE STATEMENT 
MVI M, THICEV 
, /x 
, now release the entry and always sicnal 
, */ 
; GiveSstate = Rlgptr(.CutSrad),z 
CALL RLGPTR 
, /* 
/ have placed 
4 x / 
> Tk 
; SET PLACE TO WAIT 
Lf x/ 
, Wreply = CFFH 
LXI H,WREPLY 
MVI M,OFFH 
7 call INITT> 
CALL INITT 
, do while (WSreply = OFFH), 
7 call Intask 
; if Bumpt then return DEADP 
; end, 
a11A: CALL INTASK 
CALL BUMPT 
MVI A,DEADP - 
RZ 
LXI HsWREPLY 
MOV AvsM 
CPI OFFH 
EZ a@11A 
, /x 
7 return to calling task 
? xf 
aé: RET 
? return WSreply, 
; end, 
7, ands . 
vend MIPtsends 
vend ISiIS$Mipsend, 
DSEG 
LENGTH: CW 0 
WREPLY: O08 0 
END 
D 0002 
=£ 0000 INTASK & 0000 OUTRQD = 
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RLGPTR 


e 


— 


0000 


RQGPTR 


the request into the queue, now wait for ack/nak 


Lond 


c 


00C0 


TROGPT & OCOO 
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211A 
CEAOP 
G3USY 
INTASK 
SENTCOK 
UNKNF 


ASSEMBLY 


rPremrProao 


MIPSEND 

OOSF a5 
00895 DISABG 
Q004 COISAS 
O00C LENGTH 
O08C TBUSY 
0031 WREPLY 


COMPLETE, NO 


ASSEMBLER, 


0007 
0040 
0010 
0000 
0004 
d002 


O,ruorra® 


ERRORS 


V3.0 


a6 

OISABT 
GERROR 
MIPSEN 
TOISAB 


rPrOoOrrYrnm 


0c51 
0040 
0001 
Ocdago 
0010 


MIPSEN 


ag 
EMPTYF 
GFULL 
MYIDS 
TEMPTY 


rPPePrrpa 
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0009 
0080 
0020 
0000 
0020 


ACTIVP 
FIRSTG 
INACTP 
OUTRQD 
TERROR 


rmYpPYpyY 


0083 
0008 
00387 
0000 
0001 


BUMPT 
FIRSTT 
INITT 
RLGPTR 
THIDEV 


rmoYrm 


0000 
0008 
00C0 
00C0 
0003 


CSEND 
FULLF 
INSUFM 
RQGPTR 
TRQGPT 


mm bP PP YP 


OCc70 
0080 
0085 
OGO00 
occo 


